home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / prolog1.arc / DOCTOR.PRO < prev    next >
Encoding:
Text File  |  1984-12-26  |  1.9 KB  |  67 lines
  1. /* This is a truely silly program, since it is based on my own
  2. medical knowledge. 
  3. Ask: ?-itch.    or ?-lesion.    or ?-help. to get it started. */
  4.  
  5.  
  6. help :- print( 'Diagnose the following topics:' ), nl, 
  7. print( 'Itch.' ), nl, print( 'lesion' ).
  8.  
  9.  
  10. itch :- print( 'Is the atmosphere dry?: ' ), 'say yes',
  11.   print( 'Do not take so many showers. Use vaseline.' ).
  12.  
  13. itch :- print( 'Does the patient have an allergic history?: '), 
  14.   'say yes', not(fever),  print( 'Consider atopic dermatitis.' ).
  15.  
  16. fever  :- 
  17.   print( 'Does the patient have a fever?' ), 'say yes'.
  18.  
  19. 'non infective' :- acne, 'severe acne'.
  20. 'non infective' :- acne, 'cystic acne'.
  21. 'non infective' :- acne.
  22. 'non infective' :- 'severe acne rosacea'.
  23. 'non infective' :- 'rosacea'.
  24.  
  25. lesion :- not( fever ), 'non infective'.
  26.  
  27.  
  28. acne :- 
  29.   print( 'Is the skin oily?' ), 'say yes',
  30.   print( 'Are there lots of pimples?' ), 'say yes',
  31.   print( 'Condition is probably acne.' ). 
  32.  
  33. 'cystic acne' :- 
  34.   print( 'Are there many yellowish cysts?' ), 'say yes', 
  35.   print( 'Condition is cystic acne.' ).
  36.  
  37. 'severe acne' :- 
  38.   print( 
  39.     'Are there large elevated bluish abscesses with disfiguring scars?' ), 
  40.   'say yes'.
  41.  
  42. 'rosacea' :- print( 'Is the patient  a woman?' ), 'say yes', 
  43.              'acne rosacea'.
  44.  
  45.  
  46. 'acne rosacea' :-  'severe'.
  47. 'acne rosacea' :-  'mild'.
  48.  
  49. 'severe' :- 
  50.   print( 'Does the patient have an enlarged nose, with growths?' ), 'say yes',
  51.   print( 'Diagnosis is severe acne rosacea.' ).
  52.  
  53. 'mild' :- 
  54.   print( 'Is the skin oily, with a tendency towards seborrhea?' ), 'say yes',
  55.   print( 'Are there pustules surrounded by a reddish area?' ), 'say yes',
  56.   print( 'But are they larger than ordinary acne eruptions?' ), 'say yes',
  57.   print( 'Diagnosis is acne rosacea.' ).
  58.  
  59.  
  60. 'say yes' :- read( Ans ), yes( Ans ), nl.
  61.  
  62.  
  63. yes( yes ).
  64. yes( y ).
  65. yes( yea ).
  66. yes( yup ).
  67.